library(officer)
ft <- qflextable(HD_var_data)
read_docx() %>%
body_add_flextable(value = ft) %>%
print(target = "C:/Users/dutch/OneDrive/Desktop/HD_var_data.docx")
cowplot::plot_grid(gender_graph, cp_graph, fbs_graph, restecg_graph, exang_graph, slope_graph, ca_graph, thal_graph +
theme(legend.position = "none"), legend)
cowplot::plot_grid(age_box, bps_box, chol_box, old_box)